home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Text / FireWrite.sit / FireWrite v1.04 [Fixed] / FireWrite / stack_-1.xml < prev    next >
Extensible Markup Language  |  1999-01-02  |  22KB  |  29 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>10</cardCount>
  7.     <cardID>3003</cardID>
  8.     <listID>2103</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- FireWrite v1.04-- Copyright (C) 1998-1999 Masahiro Maru (Dangerous Systems)-- All rights reserved.Function GetVersionreturn "1.04"End GetVersionon openStackset the zoomed of card window to truelock screenreset menuBarif version < 2.2 thenanswer "HyperCardﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ‡邃｢2.2ﾃ‡ﾃ甘‡ﾃ凝‡窶｡ﾃｭﾂｷﾃ‡ﾂ｢ﾃ‡ﾃε‡竕暗②FireWriteﾃ‡ï｣ｿﾃｩﾂｿﾃｧsﾃ‡竏妥‡ﾃ暗‡ﾂｱﾃ‡竏†ﾃ‡ﾃ陛‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③HyperCardﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ‡ï｣ｿ2.2ﾃ ﾂｻﾃｨ窶榲‡窶ｦﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃ‡窶ｹﾃ‡ﾎｩﾃ｣Nﾃｬﾃ†ﾃ‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with "ﾃｨIﾃｳﾏ\"doMenu "Quit HyperCard"end ifif GetEnvironment() is "development" thenset the userLevel to 5elseset the userLevel to 3end ifset the textArrows to trueput "FireWriteﾃ‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ’..." into menuItem 1 of menu "Apple" with menuMessage "aboutHyperMemo"delete menuItem 1 of menu "File"put "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄" before menuItem 1 of menu "File" with menuMessage "newMemo"put "-" before menuItem 2 of menu "File"put "ﾃ､Jﾃ‡竕 ..." before menuItem 3 of menu "File" with menuMessage "ReadFile"put "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡窶ｦﾃｯ竄ｬﾃｫ竏‚" after menuItem 3 of menu "File" with menuMessage "writeTextfile"repeat for 5delete menuItem 5 of menu "File"end repeatput "ﾃ嘉…ﾃ嘉‡ﾃ‡ï｣ｿﾃ ﾃ崚ｧﾂｸﾃ‡竏妥‡ﾃˆ..." before menuItem 7 of menu "File" with menuMessage "printMemo"repeat for 4delete menuItem 8 of menu "File"end repeatset the commandChar of menuItem 1 of menu "File" to "N"set the commandChar of menuItem "ﾃ､Jﾃ‡竕 ..." of menu "File" to "O"set the commandChar of menuItem "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡窶ｦﾃｯ竄ｬﾃｫ竏‚" of menu "File" to "S"set the commandChar of menuItem "ﾃ嘉…ﾃ嘉‡ﾃ‡ï｣ｿﾃ ﾃ崚ｧﾂｸﾃ‡竏妥‡ﾃˆ..." of menu "File" to "P"put "ﾃ‡竏妥‡笳甘‡ﾆ津‡ï｣ｿﾃｫIﾃｫï｣ｿ" before menuItem 8 of menu "Edit" with menuMessage "SelectAll"repeat while there is a menuItem 9 of menu "Edit"delete menuItem 9 of menu "Edit"end repeatset commandChar of menuItem "ﾃ‡竏妥‡笳甘‡ﾆ津‡ï｣ｿﾃｫIﾃｫï｣ｿ" of menu "Edit" to "A"repeat for 5delete menuItem 10 of menu "Go"end repeatput "ﾃ雨ﾃ…[ﾃ栄ﾃ‡ﾃεｬ窶｡ﾃｳeﾃ‡ï｣ｿﾃｨﾂ｡ﾃ‡竏‘" after menuItem 5 of menu "Go" with menuMessage "memoEmpty"put "ﾃ雨ﾃ…[ﾃ栄ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃˆ" after menuItem 6 of menu "Go" with menuMessage "memoDelete"put "-" after menuItem 7 of menu "Go"put "-" after menu "Go"put "ﾃ雨ﾃ…[ﾃ栄ﾃｮ窶佚ｧﾃ愿‡ï｣ｿﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津ｧsﾃ‡竕 ..." after menu "Go" with menuMessage "gotoSHITEIcard"put "-" after menu "Go"put "ﾃｧ竕暗ｨﾃ｢ﾃ‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" after menu "Go" with menuMessage "FirstJuyo"put "ﾃｫOﾃ‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" after menu "Go" with menuMessage "PrevJuyo"put "ﾃｩﾃｼﾃ‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" after menu "Go" with menuMessage "NextJuyo"put "ﾃｧ竕暗･窶榲‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" after menu "Go" with menuMessage "LastJuyo"put "-" after menu "Go"put "ﾃ･ﾃｼﾃｧﾄｱ..." after menu "Go" with menuMessage "findMemo"put "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶ..." after menu "Go" with menuMessage "okikae"repeat for 5delete menuItem 1 of menu "Go"end repeatset the commandChar of menuItem "ﾃ雨ﾃ…[ﾃ栄ﾃｮ窶佚ｧﾃ愿‡ï｣ｿﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津ｧsﾃ‡竕 ..." of menu "Go" to "5"set the commandChar of menuItem "ﾃｧ竕暗ｨﾃ｢ﾃ‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" of menu "Go" to "6"set the commandChar of menuItem "ﾃｫOﾃ‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" of menu "Go" to "7"set the commandChar of menuItem "ﾃｩﾃｼﾃ‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" of menu "Go" to "8"set the commandChar of menuItem "ﾃｧ竕暗･窶榲‡ﾃεｨdﾃｳvﾃ‡ﾂｻﾃ雨ﾃ…[ﾃ栄" of menu "Go" to "9"set the commandChar of menuItem "ﾃ･ﾃｼﾃｧﾄｱ..." of menu "Go" to "F"set the commandChar of menuItem "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶ..." of menu "Go" to "R"set the commandChar of menuItem 1 of menu "Style" to "T"set the commandChar of menuItem 2 of menu "Style" to "B"set the commandChar of menuItem 3 of menu "Style" to "I"set the commandChar of menuItem 4 of menu "Style" to "U"create menu "ﾂｪ竕･窶ｺﾆ抵ｬ"put "ﾃｲbﾃ‡竏‘" into menu "ﾂｪ竕･窶ｺﾆ抵ｬ" with menuMessage "speakMemo"put "ﾃｲbﾃ‡竏妥‡ﾃε‡ï｣ｿﾃｭﾃ愿ｩ~" after menu "ﾂｪ竕･窶ｺﾆ抵ｬ" with menuMessage "speakstopMemo"set commandChar of menuItem "ﾃｲbﾃ‡竏‘" of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to "H"set enabled of menuItem "ﾃｲbﾃ‡竏妥‡ﾃε‡ï｣ｿﾃｭﾃ愿ｩ~" of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to falseif the version >= 2.3 thenVoicesCheckelseput "ﾃｩgﾃ‡ﾂｶﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ’" into menu "ﾂｪ竕･窶ｺﾆ抵ｬ"set enabled of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to falseend ifcreate menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ"put "ﾃ嘉…ﾃ嘉‡ﾃｨﾃ禿ｯﾃ’" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "GetFileInfo"put "-" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ"put "ﾃｧﾂｰﾃｬﾋ凖‡ﾃεｬﾋ凖ｯtﾃ‡ï｣ｿﾃｫ}ﾃｬﾂｸ" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "theDate"put "ﾃｧﾂｰﾃ‡ﾃεｩﾃｻﾃ､窶佚‡ï｣ｿﾃｫ}ﾃｬﾂｸ" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "theTime"put "ﾃｳﾃｪﾃｪﾃｮﾃ‡ï｣ｿﾃｫ}ﾃｬﾂｸ" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "ransu"put "-" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ"put "ﾃ英ﾃ嘉･ﾃ叡ﾃ曳" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "ShowPal"put "ﾃ映ﾃ液ﾃ羽ﾃ嘉｣ﾃ曳ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃｯﾅ禿ｧX..." after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "ChangeFont"put "ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪ" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "changeIcon"put "ﾃ､gﾃｭﾂ｣ﾃｩq.txtﾃ‡ï｣ｿﾃｯtﾃ‡ﾃ佚‡ﾃˆ" after menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" with menuMessage "PlusTXT"IF GetData(2) is "ﾃ､gﾃｭﾂ｣ﾃｩqon" THENset the checkMark of menuItem "ﾃ､gﾃｭﾂ｣ﾃｩq.txtﾃ‡ï｣ｿﾃｯtﾃ‡ﾃ佚‡ﾃˆ" of menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" to TRUEEND IFend openStackon closeStackset the cursor to watchIF the checkMark of menuItem "ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪ" of menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" is true THENChangeIconEND IFIF the freesize of this stack > 0 THENput "ﾃ‡ﾎｩﾃ‡ﾃｦﾃ‡ﾂ｢ﾃ‡窶ｹﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｪﾃ†ﾃｳﾃｹﾃ‡ï｣ｿﾃｧsﾃ‡ﾂ｡ﾃ‡ﾆ津‡ﾂｮﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③ﾃｨ竕 ﾃ…Xﾃ‡ﾂｮﾃｫ窶愿‡ﾃｸﾃ｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" into message windowdoMenu "Compact Stack"put empty into message windowhide message windowEND IFset the lockScreen to TRUEreset menuBarend closeStackon resumeStackopenStackend resumeStackon suspendStacklock screenreset menuBarend suspendStackon openCardput the number of this card into cardNumput the number of cards in this stack into allcardput "ﾃ･v"& allcard & "ﾃｱﾃ｡ﾃｭﾃ愿‡ﾃƒ"& cardNum & "ﾃｱﾃ｡ﾃｱ竅„" into field "cardNumber"unlock screenend openCardon closeCardlock screenend closeCardon idleIF the version is 2.3 THENSpeakingCheckEND IFend idleon aboutHyperMemopicture "About",resource,rect,FALSEset the rectangle of window "About" to 106,121,407,222show window "About"wait until the mouseClick is TRUEset the scroll of window "About" to 0,102wait until the mouseClick is TRUEclose window "About"end aboutHyperMemoon doMenu menuItemName,menuNameIF menuName is "竏や頼竏ž" or menuName is "Color" THENanswer "FireWriteﾃｬ窶｡ﾃ‡竕暗‡ﾃ陛②HyperCardﾃ‡ﾃε雨ﾃ嘉｢ﾃ…[ﾃ｣@ﾃｮ¥ﾃ‡ﾃ陛ｩgﾃｳpﾃ‡竏妥‡ﾃ暗‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"exit doMenuEND IFpass doMenuend doMenuon newMemoIF the optionKey is Down THENlock recentask "ﾃ｢ﾎｩﾃｱﾃ｡ﾃｧﾃ湘‡ﾃ凝‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with 1put it into suujiif suuji is empty then exit newMemoif suuji is not an integer or it < 1 thenanswer "ﾃｩﾂｩﾃｫRﾃｪﾃｮﾃ‡竕暗‡ﾂｮﾃ､ﾃ凝‡ﾂ｢ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③"exit newMemoend ifif suuji > 2147483646 thenanswer "ﾃｪﾃｮﾃ‡邃｢ﾃｫﾃづ‡ﾂｴﾃ‡竏妥‡ﾂｨﾃ‡窶ｹﾃ‡竏妥③"exit newMemoend iflock screenrepeat suujiset cursor to busydoMenu "New Card"end repeatexit newMemoend ifdoMenu "New Card"end newMemoon ReadFileanswer file "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃ‡ﾃ津‡竕暗‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢" of type "TEXT" or "ttro"if it is empty then exit ReadFileput it into textnameopen file textnameread from file textname for 30000put it into field "Memo"close file textnamelock screenput FileInfo(textName) into fileInfoForTextFileput line 8 of fileInfoForTextFile && line 9 of fileInfoForTextFile into createdDateput line 11 of fileInfoForTextFile && line 12 of fileInfoForTextFile into lastModifyput createdDate into field "ﾃｧﾃ湘ｪﾂｨﾃｬﾋ凖⑴ﾃｩﾃｻ"put lastModify into field "ﾃｧ竕暗ｨIﾃｨCﾃｪ竕･ﾃｬﾋ凖⑴ﾃｩﾃｻ"put line 1 of fileInfoForTextFile into background field "FileName"end ReadFileon writeTextfileput background field "FileName" into DefaultNameIF DefaultName is empty THENput "ﾃｱﾂｺﾃｨﾃεｱﾂ｢ﾃｪ窶ｺﾃｭﾃ‹" into DefaultNameEND IFIF GetData(2) is "ﾃ､gﾃｭﾂ｣ﾃｩqon" THENrepeatIF the length of DefaultName < 28 THEN exit repeatdelete last character of DefaultNameend repeatput ".txt" after DefaultNameEND IFIF the optionKey is Down THENIF the shiftKey is Down THENask file "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡ï｣ｿﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡ﾃ津‡竕暗｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢" with DefaultNameput it into fileNamelock screengo to first cardput 0 into juyoNumberrepeat for the number of cards in this stackgo to next cardIF the hilite of background button "ﾃｨdﾃｳv" is false THEN next repeatadd 1 to juyoNumberopen file fileName & "-" & juyoNumberwrite bg fld "Memo" to file fileName & "-" & juyoNumberclose file fileName & "-" & juyoNumberend repeatput 0 into juyoNumberexit writeTextfileEND IFask file "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡ï｣ｿﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡ﾃ津‡竕暗｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢" with DefaultNameput it & "-" into fileNamelock screenif fileName is "-" then exit writeTextfilego to first cardrepeat for the number of cards in this stackrepeat for 1if backGround field "Memo" is empty then exit repeatopen file fileName & the number of this cardwrite bg fld "Memo" to file fileName & the number of this cardclose file fileName & the number of this cardend repeatgo to next cardend repeatexit writeTextfileend ifask file "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡ï｣ｿﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡ﾃ津‡竕暗｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢" with DefaultNameput it into fileNameif fileName is empty then exit writeTextfileopen file fileNamewrite bg fld "Memo" to file fileNameclose file fileNameend writeTextfileon printMemoprint field "Memo"end printMemoon SelectAllset cursor to watchselect text of background field "Memo"end SelectAllon findMemoglobal kenchananswer "ﾃ･ﾃｼﾃｧﾄｱﾃｯﾋ堙ｱ@ﾃ‡ï｣ｿﾃｫIﾃ‡ﾃ津‡竕暗｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" or "ﾃｨ竅„ﾃ‡ﾂｵﾃ‡竕 ﾃ･ﾃｼﾃｧﾄｱ" or "ﾃｭﾂ ﾃｨﾃ古･ﾃｼﾃｧﾄｱ"put it into houhouif houhou is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit findMemoask "ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｬﾂｸﾃ‡ﾃ催‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢" with kenchanif it is empty then exit findMemoput it into kenchanif houhou is "ﾃｭﾂ ﾃｨﾃ古･ﾃｼﾃｧﾄｱ" thenfind string kenchanelsefind whole kenchanend ifend findMemoon okikaeglobal findChar,okikaeCharask "ﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with findCharif it is empty then exit okikaeput it into findCharask "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶﾃ‡ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with okikaeCharput it into okikaeCharIF offset(findChar,okikaeChar) is not 0 THEN put "ﾃ迂ﾃ…[ﾃ盈ﾃ…[ﾃ⑿ﾃｨﾅ津⒀" into OKnanoanswer "ﾃｭuﾃ‡ﾂｴﾃ､竏妥‡ﾂｶﾃｨï｣ｿﾃ･ﾃｨﾃ⑦" with "ﾃ‡竏妥‡笳甘‡ﾆ’" or "ﾃ㈲ﾃ‡ﾂｬﾃ‡ﾃε‡窶ｺ"if it is "ﾃ㈲ﾃ‡ﾂｬﾃ‡ﾃε‡窶ｺ" thenfind string findCharif the result is not "not found" then put okikaeChar into the foundChunklock screenTimeChangeexit okikaeend iflock Screenif OKnano is "ﾃ迂ﾃ…[ﾃ盈ﾃ…[ﾃ⑿ﾃｨﾅ津⒀" thenrepeat foreverset cursor to busyfind string findCharif the result is"not found" then exit okikaeput "alskdj" into the foundChunkfind string "wgjpyl"put okikaeChar into the foundChunkend repeatELSErepeat foreverset cursor to busyfind string findCharif the result is"not found" then exit okikaeput okikaeChar into the foundChunkend repeatEND IFend okikaeon theDateget the selectedChunkif it is empty then exit theDateput the long date after the selectedChunklock screenTimeChangeend theDateon theTimeget the selectedChunkif it is empty then exit theTimeput the long time after the selectedChunklock screenTimeChangeend theTimeon ransuget the selectedChunkif it is empty then exit ransuask "ﾃｳﾃｪﾃｪﾃｮﾃ‡ï｣ｿﾃｨoﾃ‡竏妥ｪﾃｮﾃ‡ﾃεｮﾃ陛 ﾃ陛‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with 100put it into ransuNameif ransuName is empty then exit ransuif ransuName is not an integer or it < 1 thenanswer "ﾃｩﾂｩﾃｫRﾃｪﾃｮﾃ‡竕暗‡ﾂｮﾃ､ﾃ凝‡ﾂ｢ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③"exit ransuend ifif ransuName > 2147483646 thenanswer "ﾃｪﾃｮﾃ‡邃｢ﾃｫﾃづ‡ﾂｴﾃ‡竏妥‡ﾂｨﾃ‡窶ｹﾃ‡竏妥③"exit ransuEND IFput empty&&random(ransuName)&&"(ﾃｳﾃｪﾃｪﾃｮ)" after the selectedChunkTimeChangeend ransuon memoEmptyanswer "ﾃｨﾂ｡ﾃ‡ﾂｵﾃ‡ﾆ津‡窶｡ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "OK" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit memoEmptyset the lockScreen to TRUEput empty into field "Memo"put empty into field "FileName"put empty into field "ﾃｧﾃ湘ｪﾂｨﾃｬﾋ凖⑴ﾃｩﾃｻ"put empty into field "ﾃｧ竕暗ｨIﾃｨCﾃｪ竕･ﾃｬﾋ凖⑴ﾃｩﾃｻ"end memoEmptyon memoDeleteput the number of cards in this stack into allcardif the optionKey is Down thenask "ﾃ｢ﾎｩﾃｱﾃ｡ﾃｨﾂ｡ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with 1put it into suujiif suuji is empty then exit memoDeleteif suuji is not an integer or it < 1 thenanswer "ﾃｩﾂｩﾃｫRﾃｪﾃｮﾃ‡竕暗‡ﾂｮﾃ､ﾃ凝‡ﾂ｢ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③"exit memoDeleteEND IFIF suuji > 2147483646 THENanswer "ﾃｪﾃｮﾃ‡邃｢ﾃｫﾃづ‡ﾂｴﾃ‡竏妥‡ﾂｨﾃ‡窶ｹﾃ‡竏妥③" with "OK"exit memoDeleteEND IFIF allcard < suuji THENanswer "ﾃｩwﾃｭﾃ凝‡ﾃεｪﾃｮﾃｩﾃｶﾃ‡邃｢ﾃ･ﾂｪﾃｧ窶ｺﾃ‡ﾃε嘉…ﾃ嘉‡ﾃｪﾃｮﾃ‡ï｣ｿﾃ｢zﾃ‡ﾂｶﾃ‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③" with "OK"exit memoDeleteELSE IF allcard = suuji thenanswer "ﾃｩwﾃｭﾃ凝‡ﾃεｪﾃｮﾃｩﾃｶﾃ‡ﾃ陛･ﾂｪﾃｧ窶ｺﾃ‡ﾃε嘉…ﾃ嘉‡ﾃｪﾃｮﾃ‡竏†ﾃｬﾃ佚‡竏づ‡竕暗‡竏妥③" & return & "ﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ津厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ古ｨﾃｺﾃ‡ï｣ｿﾃｧsﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ古ｨﾃｺ" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit memoDeletedoMenu "Delete Stack..."exit memoDeleteEND IFlock screenrepeat suujiset cursor to busydoMenu "Delete Card"end repeatexit memoDeleteend ifanswer "ﾃｨﾂ｡ﾃ‡ﾂｵﾃ‡ﾆ津‡窶｡ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "OK" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit memoDeleteif allcard is 1 thenanswer "ﾃｩwﾃｭﾃ凝‡ﾃεｪﾃｮﾃｩﾃｶﾃ‡ﾃ陛･ﾂｪﾃｧ窶ｺﾃ‡ﾃε嘉…ﾃ嘉‡ﾃｪﾃｮﾃ‡竏†ﾃｬﾃ佚‡竏づ‡竕暗‡竏妥③" & return & "ﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ津厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ古ｨﾃｺﾃ‡ï｣ｿﾃｧsﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ古ｨﾃｺ" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit memoDeletedoMenu "Delete Stack..."exit memoDeleteend ifdoMenu "Delete Card"end memoDeleteon gotoSHITEIcardask "ﾃ 竅„ﾃｬﾃ†ﾃｪﾃ甘‡ﾃε嘉…ﾃ嘉‡ﾃ‡ﾃεｮ窶佚ｧﾃ愿‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with the number of this cardif the result is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit gotoSHITEIcardif it is not an integer or it < 1 thenanswer "ﾃｩﾂｩﾃｫRﾃｪﾃｮﾃ‡竕暗‡ﾂｮﾃ､ﾃ凝‡ﾂ｢ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③"exit gotoSHITEIcardend ifif it > 2147483646 thenanswer "ﾃｪﾃｮﾃｩﾃｶﾃ‡邃｢ﾃｫﾃづ‡ﾂｴﾃ‡竏妥‡ﾂｨﾃ‡窶ｹﾃ‡竏妥③"exit gotoSHITEIcardend ifif the number of cards in this stack < it thenanswer "ﾃｩwﾃｭﾃ凝‡ﾃεｪﾃｮﾃｩﾃｶﾃ‡邃｢ﾃ･ﾂｪﾃｧ窶ｺﾃ‡ﾃε嘉…ﾃ嘉‡ﾃｪﾃｮﾃ‡ï｣ｿﾃ｢zﾃ‡ﾂｶﾃ‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③"exit gotoSHITEIcardend ifgo to card itend gotoSHITEIcardon FirstJuyoset cursor to watchlock screenpush cardgo to first cardput "ﾃｨdﾃｳvﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡邃｢ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗雨ﾃ…[ﾃ栄ﾃ‡ﾃ陛ｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③" into DiaMsgIF the hilite of backGround button "ﾃｨdﾃｳv" is true THENput the number of this card into CardNumput "ﾃ‡ﾂｱﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ ﾂｻﾃ､Oﾃ‡窶ｦ" before DiaMsgEND IFrepeat for the number of cards in this stackgo to next cardif the hilite of backGround button "ﾃｨdﾃｳv" is true and the number of this card <> CardNum then exit FirstJuyoend repeatpop cardunlock screenanswer DiaMsgend FirstJuyoon PrevJuyoset cursor to watchlock screenput "ﾃｨdﾃｳvﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡邃｢ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗雨ﾃ…[ﾃ栄ﾃ‡ﾃ陛ｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③" into DiaMsgIF the hilite of backGround button "ﾃｨdﾃｳv" is true THENput the number of this card into CardNumput "ﾃ‡ﾂｱﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ ﾂｻﾃ､Oﾃ‡窶ｦ" before DiaMsgEND IFrepeat for the number of cards in this stackgo to prev cardif the hilite of backGround button "ﾃｨdﾃｳv" is true and the number of this card <> CardNum then exit PrevJuyoend repeatunlock screenanswer DiaMsgend PrevJuyoon NextJuyoset cursor to watchlock screenput "ﾃｨdﾃｳvﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡邃｢ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗雨ﾃ…[ﾃ栄ﾃ‡ﾃ陛ｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③" into DiaMsgIF the hilite of backGround button "ﾃｨdﾃｳv" is true THENput the number of this card into CardNumput "ﾃ‡ﾂｱﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ ﾂｻﾃ､Oﾃ‡窶ｦ" before DiaMsgEND IFrepeat for the number of cards in this stackgo to next cardif the hilite of backGround button "ﾃｨdﾃｳv" is true and the number of this card <> CardNum then exit NextJuyoend repeatunlock screenanswer DiaMsgend NextJuyoon LastJuyoset cursor to watchlock screenpush cardgo to last cardput "ﾃｨdﾃｳvﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡邃｢ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗雨ﾃ…[ﾃ栄ﾃ‡ﾃ陛ｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③" into DiaMsgIF the hilite of backGround button "ﾃｨdﾃｳv" is true THENput the number of this card into CardNumput "ﾃ‡ﾂｱﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ ﾂｻﾃ､Oﾃ‡窶ｦ" before DiaMsgEND IFrepeat for the number of cards in this stackgo to prev cardif the hilite of backGround button "ﾃｨdﾃｳv" is true and the number of this card <> CardNum then exit LastJuyoend repeatpop cardunlock screenanswer DiaMsgend LastJuyoon speakMemoset enabled of menuItem "ﾃｲbﾃ‡竏妥‡ﾃε‡ï｣ｿﾃｭﾃ愿ｩ~" of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to trueanswer "ﾃｲbﾃ‡ﾂｵﾃ‡ﾆ津‡窶｡ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" & return & "ﾃｬﾋ凖ｱ{ﾃ･ﾃ催‡ﾃ陛ｪ竕･ﾃｨﾃ古‡窶ｦﾃｭﾃｹﾃ‡ﾃ暗‡ﾂｱﾃ‡竏†ﾃ‡ﾃ陛‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" with "OK" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "OK" then speak field "Memo"end speakMemoon speakstopMemoset enabled of menuItem "ﾃｲbﾃ‡竏妥‡ﾃε‡ï｣ｿﾃｭﾃ愿ｩ~" of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to FALSEstop speechend speakstopMemoon ChangeFontask "ﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡ﾎｩﾃ‡ﾂ｢ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃｱﾂｺﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with "Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ"if the result is "Cancel" then exit ChangeFontput it into fontNamerepeat with i = 1 to 36set the cursor to busyget FontExists(FontName,i)IF it is TRUE THEN Exit repeatIF i=36 THENAnswer "ﾃ‡ﾂｪﾃ‡ﾃε‡ﾃ甘‡ﾂｧﾃ‡ﾂｻﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ﾃ陛韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津⑦"&FontName&return&"ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃｱﾂｺﾃ‡ï｣ｿﾃ､mﾃｮFﾃ‡ﾂｵﾃ②ﾃ‡窶｡ﾃ‡ﾂｧﾃ ﾃ催｢ﾃ津‡窶堙‡ﾃ凝ｭﾂｺﾃ‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"Exit to HyperCardend ifend repeatset the cursor to watchset the textFont of field "Memo" to FontNameend ChangeFonton changeIconlock screenput GetData(1) into SoLif SoL is "ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪoff" thenset icon of bg btn "MiniIcon" to "Memo"set the rectangle of card window to 1,20,64,84set the style of bg btn "MiniIcon" to rectangleset the autoHilite of bg btn "MiniIcon" to trueset the rectangle of bg btn "MiniIcon" to 0,0,64,64SetData "1,ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪon"set checkMark of menuItem "ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪ" of menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" to trueelse if SoL is "ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪon" thenset icon of bg btn "MiniIcon" to emptyset the style of bg btn "MiniIcon" to transparentset the autoHilite of bg btn "MiniIcon" to falseSetData "1,ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪoff"set the zoomed of card window to trueset checkMark of menuItem "ﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃ｢ﾂｪ" of menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" to falseEND IFend changeIconon ShowPalpalette "FW_Palette"end ShowPalon getFileInfoset the cursor to watchput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃ禿ｯﾃ’" into dialogMessageput (the number of chars of background field "Memo")-(the number of lines of background field "Memo")+1 into messageHelper1IF messageHelper1 is 1 THEN put 0 into messageHelper1put "ﾃｱﾂｺﾃｫOﾃ⑦"&background field "FileName" into line 3 of dialogMessageput "ﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ⑦"&the number of chars of background field "Memo" into line 4 of dialogMessageput "ﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ⑿ﾃ｢ﾂｸﾃｧsﾃ嘘ﾃ…[ﾃ栄ﾃ‡ï｣ｿﾃ､窶ｹﾃ‡窶ｹﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ⒀ﾃ⑦"&messageHelper1 into line 5 of dialogMessageput "ﾃｭPﾃ･ﾃ催ｪﾃｮﾃ⑦"&the number of words of background field "Memo" into line 6 of dialogMessageput "ﾃｧsﾃｪﾃｮﾃ⑦"&the number of lines of background field "Memo" into line 7 of dialogMessageanswer dialogMessageend getFileInfofunction GetData LiNumreturn line LiNum of background field "Development"end GetDataon SetData LiNumTStrput item 2 of LiNumTStr into line (item 1 of LiNumTStr) of background field "Development"end SetDataon PlusTXTIF GetData(2) is "ﾃ､gﾃｭﾂ｣ﾃｩqoff" THENSetData "2,ﾃ､gﾃｭﾂ｣ﾃｩqon"set the checkMark of menuItem "ﾃ､gﾃｭﾂ｣ﾃｩq.txtﾃ‡ï｣ｿﾃｯtﾃ‡ﾃ佚‡ﾃˆ" of menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" to TRUEELSE IF GetData(2) is "ﾃ､gﾃｭﾂ｣ﾃｩqon" THENSetData "2,ﾃ､gﾃｭﾂ｣ﾃｩqoff"set the checkMark of menuItem "ﾃ､gﾃｭﾂ｣ﾃｩq.txtﾃ‡ï｣ｿﾃｯtﾃ‡ﾃ佚‡ﾃˆ" of menu "ﾎｩﾃ包ｬつｺﾂｨﾅｸ" to FALSEEND IFend PlusTXTon TimeChangeif field "ﾃｧﾃ湘ｪﾂｨﾃｬﾋ凖⑴ﾃｩﾃｻ" is empty thenput the long date & the long time into field "ﾃｧﾃ湘ｪﾂｨﾃｬﾋ凖⑴ﾃｩﾃｻ"put the long date & the long time into field "ﾃｧ竕暗ｨIﾃｨCﾃｪ竕･ﾃｬﾋ凖⑴ﾃｩﾃｻ"elseput the long date & the long time into field "ﾃｧ竕暗ｨIﾃｨCﾃｪ竕･ﾃｬﾋ凖⑴ﾃｩﾃｻ"end ifend TimeChangeon VoicesCheckif the voices is empty thenput "ﾃｩgﾃ‡ﾂｶﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ’" into menu "ﾂｪ竕･窶ｺﾆ抵ｬ"set enabled of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to falseelseset commandChar of menuItem "ﾃｲbﾃ‡竏‘" of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to "H"end ifend VoicesCheckon SpeakingCheckIF the voices is not empty THENIF the speech is done THEN set enabled of menuItem "ﾃｲbﾃ‡竏妥‡ﾃε‡ï｣ｿﾃｭﾃ愿ｩ~" of menu "ﾂｪ竕･窶ｺﾆ抵ｬ" to falseEND IFend SpeakingCheckFunction GetEnvironmentreturn the environmentEnd GetEnvironment</script>
  17.     <background id="2610" file="background_2610.xml" name="" />
  18.     <card id="3003" file="card_3003.xml" marked="false" name="" owner="2610" />
  19.     <card id="4636" file="card_4636.xml" marked="false" name="" owner="2610" />
  20.     <card id="2481" file="card_2481.xml" marked="false" name="" owner="2610" />
  21.     <card id="5274" file="card_5274.xml" marked="false" name="" owner="2610" />
  22.     <card id="5381" file="card_5381.xml" marked="false" name="" owner="2610" />
  23.     <card id="5744" file="card_5744.xml" marked="false" name="" owner="2610" />
  24.     <card id="5943" file="card_5943.xml" marked="false" name="" owner="2610" />
  25.     <card id="4068" file="card_4068.xml" marked="false" name="" owner="2610" />
  26.     <card id="4132" file="card_4132.xml" marked="false" name="" owner="2610" />
  27.     <card id="4361" file="card_4361.xml" marked="false" name="" owner="2610" />
  28. </stack>
  29.